home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / cgi2 / fly_tar.z / fly_tar / fly / examples / test.fly < prev   
Encoding:
Text File  |  1997-01-21  |  3.0 KB  |  132 lines
  1. new
  2. #
  3. size 256,256
  4.  
  5. # background fill, all white
  6. fill   1,1,255,255,255
  7.  
  8. # line from top to bottom, 50 pixels from left edge, colour black
  9. line   50,0,50,255,0,0,0
  10.  
  11. # fill in the left region a revolting pastel green
  12. filltoborder 20,20,0,0,0,0,255,127
  13.  
  14. # a simple dashed line, 100 from the left edge
  15. dline  100,0,100,255,0,0,0
  16.  
  17. # a rectangle and a filled one, near the middle
  18. rect   25,105,75,145,255,69,0
  19. frect  125,105,175,145,105,139,105
  20.  
  21. # a big red square
  22. square   25,25,75,255,69,0
  23.  
  24. # a small red square, filled this time
  25. fsquare   25,165,50,255,69,0
  26.  
  27. # fill the right hand side of the small rectangle with white
  28. fill   70,140,255,255,255
  29.  
  30. # fill the background of the right side of the image with a mid blue
  31. fill 250,250,178,192,220
  32.  
  33. # a couple of polygons - one filled, one not
  34. fpoly  255,69,0,210,5,220,5,230,20,230,50,225,45,215,40,210,5
  35. poly   105,139,105,110,5,120,5,130,20,130,50,125,45,115,40,110,5
  36.  
  37. # concentric circles creating a thick-bordered circle
  38. circle 100,125,30,255,165,0
  39. circle 100,125,31,255,165,0
  40. circle 100,125,32,255,165,0
  41. circle 100,125,33,255,165,0
  42. circle 100,125,34,255,165,0
  43. circle 100,125,35,255,165,0
  44.  
  45. # a filled circle
  46. fcircle 200,125,30,72,61,139
  47.  
  48. # fill the first circle with an offensive blue
  49. fill   105,125,151,255,255
  50.  
  51. # just a loopy arc
  52. arc    125,180,145,90,320,120,0,0,0
  53.  
  54. # Some writing: across the bottom
  55. string   0,0,0,15,240,medium,Now is the time for all good folk
  56. # and up the right side
  57. stringup 0,0,0,240,235,medium,to come to the aid of the party.
  58.  
  59. # set a couple of pixels in the green rectangle to black
  60. setpixel    130,130,0,0,0
  61. setpixel    130,131,0,0,0
  62. setpixel    131,130,0,0,0
  63. setpixel    131,131,0,0,0
  64.  
  65. #get the colour indexes of a couple of pixels
  66. getpixel    130,130
  67. getpixel    131,132
  68.  
  69. # make black the transparent colour
  70. transparent 0,0,0
  71.  
  72. #make the image interlaceD
  73. interlace
  74.  
  75. # an example of using a style with the line command
  76. setstyle    0,0,0,255,255,255,255,165,0,255,69,0,0,0,0,255,255,255
  77. line 150,30,150,79,0,0,0
  78. line 151,30,151,79,0,0,0
  79. line 152,30,152,79,0,0,0
  80. line 153,30,153,79,0,0,0
  81. line 154,30,154,79,0,0,0
  82. line 155,30,155,79,0,0,0
  83. line 156,30,156,79,0,0,0
  84. line 157,30,157,79,0,0,0
  85. line 158,30,158,79,0,0,0
  86. line 159,30,158,79,0,0,0
  87. line 160,30,160,79,0,0,0
  88. line 162,30,162,79,0,0,0
  89. line 164,30,164,79,0,0,0
  90. line 166,30,166,79,0,0,0
  91. line 168,30,168,79,0,0,0
  92. line 170,30,170,79,0,0,0
  93. line 173,30,173,79,0,0,0
  94. line 176,30,176,79,0,0,0
  95. line 179,30,179,79,0,0,0
  96. line 182,30,182,79,0,0,0
  97. line 186,30,186,79,0,0,0
  98. line 190,30,190,79,0,0,0
  99. line 194,30,194,79,0,0,0
  100. line 200,30,200,79,0,0,0
  101. killstyle
  102.  
  103. # get the x and y size of the image
  104. sizex
  105. sizey
  106.  
  107. # That's all folks
  108. end
  109. #########################
  110.  
  111. # new image
  112. new
  113. size 128,128
  114. # set the output filename
  115. name foo.gif
  116. # a black background
  117. fill 1,1,0,0,0
  118. # a diagonal white line top left to bottom right
  119. line 0,0,127,127,255,255,255
  120. end
  121. #########################
  122.  
  123. # And another!!
  124. new
  125. size 128,128
  126. # set the output filename
  127. name bar.gif
  128. # a black background
  129. fill 1,1,0,0,0
  130. # a diagonal white line bottom left to top right
  131. line 0,127,127,0,255,255,255
  132.